; ...dennoch habe ich noch etwas verbessern können: Fremdsprachenfehlerkorrektur! ;-)
(set DirHelp "You got a directory-requester and now have to decide, where you want to install ChaosPro. After you have chosen your favorite place, a new directory named 'ChaosPro' will be created. Into this new directory all files will be copied...")
(set CopyHelp "Now all the files and directories have to be copied. Let's explain what the drawers (should) contain and for what purpose the files exist...\n\n")
(set CopyHelp (cat CopyHelp "Drawers 'AnimData' and 'Anims'\n------------------------\nThese 2 drawers normally contain nothing. If you create an animation with ChaosPro, then this animation will be"))
(set CopyHelp (cat CopyHelp "stored in the Anims-drawer by default. If you want to save only your key-frames and some additional data, then this file will be stored in the AnimData-drawer.\n\n"))
(set CopyHelp (cat CopyHelp "Drawer 'Catalogs'\n--------------------\nThis drawer contains subdirectories with languages, so the program can use your favorite language\n\n"))
(set CopyHelp (cat CopyHelp "Drawer 'DefIcons'\n--------------------\nThis drawer contains the default icons for this distribution. So if you don't like these MagicWB-style icons, then in this directory standard icons are available. "))
(set CopyHelp (cat CopyHelp "This installation utility will ask you, what set of icons you want and will act accordingly.\n\n"))
(set CopyHelp (cat CopyHelp "Drawer 'Fonts'\n------------\nThis directory contains a small font. If you don't have high resolutions, then a small font is really a good idea.\n\n"))
(set CopyHelp (cat CopyHelp "Drawer 'Formula'\n----------------\nThis drawer contains some formulas for use with ChaosPro.\n\n\n"))
(set CopyHelp (cat CopyHelp "Drawers 'FractPic'&'FractPic_Extra'\n--------------------------------\nThese drawers contain several data files for fractals. All files in 'FractPic' are automatically loaded at startup and are displayed in a listview."))
(set CopyHelp (cat CopyHelp " There you can calculate them.\n\n"))
(set CopyHelp (cat CopyHelp "Drawer 'Libs'\n-------------------\nThis drawer contains the libraries that ChaosPro needs.\n\n"))
(set CopyHelp (cat CopyHelp "Drawer 'Pictures'\n--------------------\nThe IFF pictures will by default be saved into this drawer.\n\n"))
(set CopyHelp (cat CopyHelp "Drawer 'Prefs'\n-------------------\nThis is the place for the configuration files.\n\n"))
(set CopyHelp (cat CopyHelp "Drawer 'Rexx'\n-------------------\nIf you want to write Arexx-scripts, you can store them in this directory. There are already a few example scripts...\n\n"))
(set CopyHelp (cat CopyHelp "File 'ChaosPro'\n------------------\nThe main program. This is the executable..\n\n"))
(set CopyHelp (cat CopyHelp "File 'CPPrefs'\n--------------------\nThis program you should start after the installation. It lets you choose some things like the screenmode and the font.\n\n"))
(set CopyHelp (cat CopyHelp @copyfiles-help))
(set IconHelp "I personally like these MagicWB-style icons. But I'm not alone in the world. Others just hate them. So I decided to let you choose which set of icons you want. If you don't have MagicWB - or even don't know anything about this - ")
(set IconHelp (cat IconHelp "then I recommend to install the standard icons. If you like MagicWB, then just choose it...\n\n\n"))
(set IconHelp (cat IconHelp @askchoice-help))
(set ExitText "\n\nWell, that was all.\nYou now just have to click\non the ChaosPro-Icon...\n")
(set installdir
(askdir
(prompt "Please choose the directory to install ChaosPro in. A directory called ChaosPro will be created" )
(help DirHelp)
(default "")
(disk)
)
)
(if (OR (patmatch "#?:" installdir)
(patmatch "#?/" installdir)
)
(set installdir (cat installdir "ChaosPro"))
(set installdir (cat installdir "/ChaosPro"))
)
(set @default-dest installdir)
(makedir installdir
(prompt "Creating directory ChaosPro in your desired place...")
(infos)
(help @makedir-help)
)
(copyfiles (prompt "Installing programs and directories")
(help CopyHelp)
(source "")
(pattern "#?")
(dest installdir)
(confirm)
(infos)
)
(set Iconmode
(askchoice
(help IconHelp)
(prompt "Do you want to install the 8-color\nMagicWB-icons or the 4-color\nstandard system-icons?\n")
